home *** CD-ROM | disk | FTP | other *** search
/ PC World 2001 July / PCWorld_2001-07_cd.bin / Software / Vyzkuste / xsetup / setup.exe / {app} / plugins / XQ WMP 3.xpl < prev    next >
Encoding:
XSetup plugin  |  2001-04-14  |  1.7 KB  |  66 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="2"
  4. "UIPATH 1"="Program Options\Built in Windows Apps\Windows Media Player"
  5. "UIPATH 2"="Internet\Windows Media Player"
  6. "NAME"="Advanced Options"
  7. "LANGUAGE"="VBScript"
  8. "VERSION"="1.15"
  9. "TEXT 1"="Allow automatic Codec downloads"
  10. "TEXT 2"="Enable DVD functionality"
  11. "DESCRIPTION 1"="Some options for WMP."
  12. "DESCRIPTION 2"="NOTE: "DVD functionality" is only available with WMP 6.x on Windows 95 or Windows 98 and with WMP 8 on WinXP!"
  13. "AUTHOR"="Xteq Systems"
  14. "CONTACTURL"="http://www.xteq.com"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16. "COMMENT 1"=" "
  17.  
  18.  
  19.  
  20. sV1="HKCU\Software\Policies\Microsoft\WindowsMediaPlayer\NoCodecDownload" ' DW
  21. sV2="HKCU\Software\Microsoft\MediaPlayer\Player\Settings\EnableDVDUI" 'STR - yes/no 
  22.  
  23. 'Called when the Plugin is started
  24. SUB Plugin_Initialize  
  25.   i=RegReadValue(sV1)
  26.   if i<>1 then SetUIElement 1,true
  27.  
  28.   i=RegReadValue(sV2)
  29.   if i="yes" then SetUIElement 2,true
  30. END SUB
  31.  
  32. 'Called when the Plugin should validate the Data the user has entered
  33. SUB Plugin_CheckData(ElementIndex)
  34. END SUB
  35.  
  36.  
  37.  
  38. 'Called when the Plugin should apply the changes
  39. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  40.  Call Wrt(1,sV1)
  41.  
  42.  if GetUIElement(2)=true then
  43.     Call RegWriteValue(sV2,"yes",1)
  44.  else
  45.     Call RegWriteValue(sV2,"no",1)
  46.  end if
  47. END SUB
  48.  
  49. Sub Wrt(ITM,VAL)
  50.  b=GetUIElement(ITM)
  51.  if b=false then
  52.     Call RegWriteValue(VAL,1,2)
  53.  else
  54.     s=RegReadValue(VAL)
  55.     if IsEmpty(s)=false then
  56.        Call RegDeleteValue(VAL)
  57.     end if
  58.  end if
  59. end sub
  60.  
  61.  
  62. 'Called when the Plugin is about to be removed from memory
  63. SUB Plugin_Terminate
  64. END SUB
  65.  
  66.